﻿''' <summary>
''' Ersteltlt einen Amphibienpanzer
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class EinheitAmphibienpanzer
    Inherits ObjektEinheit
    Public Sub New(ByVal neuSpieler As Integer, ByVal neuX As Integer, ByVal neuY As Integer, Optional ByVal HatSichBewegt As Boolean = True)
        MyBase.New(neuSpieler, neuX, neuY, HatSichBewegt)
    End Sub
    Public Sub New(ByVal neuKP As Integer, ByVal neuTreibstoff As Integer, ByVal neuMunition As Integer, ByVal neuSpieler As Integer, ByVal neuBesetzen As Boolean, ByVal neuX As Integer, ByVal neuY As Integer, ByVal Tarnung As Boolean, Optional ByVal HatSichbeWegt As Boolean = True)
        MyBase.New(neuKP, neuTreibstoff, neuMunition, neuSpieler, neuX, neuY, neuBesetzen, HatSichbeWegt, Tarnung)
    End Sub
    Public Sub New(ByVal neuKP As Integer, ByVal neuSpieler As Integer, ByVal neuX As Integer, ByVal neuY As Integer, Optional ByVal HatSichbeWegt As Boolean = True)
        MyBase.New(neuKP, neuSpieler, neuX, neuY, HatSichbeWegt)
    End Sub
    Protected Overrides Sub Datenladen()
        Einheitenname = "Amphibienpanzer"
        EinheitenID = "ABPZ"
        SpritMax = 80
        KannTarnen = False
        KannBesetzen = False
        Treibeverbrauch = 0
        Koste = 20000
        Fähigkeit = ""
        Treibstoff = SpritMax
        Bewegungspunkte = 6
        Bewegungsart = MovementSorts.Amphibie.ToString
        Sicht = 2
        MunitionMax = 7
        Munition = MunitionMax
        Waffe1 = "Keine"
        Waffe2 = "Panzerfaust"
        Array.Resize(Ladung, 0)
        Array.Resize(GeladeneEinheitenIDs, 0)
        Array.Resize(EntladungsUntergrund, 0)
        MinimaleReichweite = 2
        MaximaleReichweite = 4
        BildIDbestimmen()
        Explosion = "Land"
    End Sub

    
End Class
